home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / qtext / qtext.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  45 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    QText.mod
  3.   :Author.     Fridtjof Siebert
  4.   :Address.    Nobileweg 67, D-7-Stgt-40
  5.   :Phone.      (0)711/822509
  6.   :Shortcut.   [fbs]
  7.   :Version.    1.0
  8.   :Date.       29-Apr-89
  9.   :Copyright.  PD
  10.   :Language.   Assembler
  11.   :Translator. M2Amiga v3.1d / Profimat
  12.   :Contents.   Procedure for fast text-output on a BitMap
  13. ---------------------------------------------------------------------------*)
  14.  
  15. IMPLEMENTATION MODULE QText;
  16.  
  17. FROM SYSTEM   IMPORT ADDRESS, INLINE;
  18. FROM Graphics IMPORT BitMapPtr, TextFontPtr;
  19.  
  20. PROCEDURE QText(x{0},y{1}: INTEGER;
  21.                 str{8}: ADDRESS;
  22.                 bm{9}: BitMapPtr;
  23.                 tf{10}: TextFontPtr);  (* $E- *)
  24.  
  25. (* Gibt str^ an Position x,y in bm mit dem Font tf aus *)
  26. (* x gibt position in Zeichenbreiten (8 Pixel) an.     *)
  27.  
  28. BEGIN
  29. INLINE(
  30. (*0000*) 048E7H,0F0F0H,03429H,00000H,048C2H,0C2C2H,048C0H,0D280H,
  31. (*0010*) 02269H,00008H,0D3C1H,02202H,0E781H,09282H,05381H,0246AH,
  32. (*0020*) 00022H,01018H,06700H,00082H,01600H,0C63CH,00060H,06600H,
  33. (*0030*) 00034H,012BCH,000FEH,0D3C2H,012BCH,000C6H,0D3C2H,012BCH,
  34. (*0040*) 000C6H,0D3C2H,012BCH,000C6H,0D3C2H,012BCH,000C6H,0D3C2H,
  35. (*0050*) 012BCH,000C6H,0D3C2H,012BCH,000FEH,0D3C2H,012BCH,00000H,
  36. (*0060*) 093C1H,060BEH,0903CH,00020H,06A04H,0903CH,00020H,0C07CH,
  37. (*0070*) 000FFH,047F2H,00000H,01293H,0D3C2H,012ABH,000C0H,0D3C2H,
  38. (*0080*) 012ABH,00180H,0D3C2H,012ABH,00240H,0D3C2H,012ABH,00300H,
  39. (*0090*) 0D3C2H,012ABH,003C0H,0D3C2H,012ABH,00480H,0D3C2H,012ABH,
  40. (*00A0*) 00540H,093C1H,06000H,0FF7CH,04CDFH,00F0FH,04E75H);
  41. END QText;
  42.  
  43. END QText.
  44.  
  45.